home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SOURCES / S / LOADRUN.S < prev    next >
Encoding:
Text File  |  1993-11-18  |  4.6 KB  |  106 lines
  1. ; LOADRUN
  2. ;************************************************************************
  3. ;*                                    *
  4. ;*        PC Scheme/Geneva 4.00 Scheme code            *
  5. ;*                                    *
  6. ;* (c) 1985-1988 by Texas Instruments, Inc. See COPYRIGHT.TXT        *
  7. ;* (c) 1992 by L. Bartholdi & M. Vuilleumier, University of Geneva    *
  8. ;*                                    *
  9. ;*----------------------------------------------------------------------*
  10. ;*                                    *
  11. ;*        Autoload definitions for Runtime version        *
  12. ;*                                    *
  13. ;*----------------------------------------------------------------------*
  14. ;*                                    *
  15. ;* Created by: Terry Caudill        Date: 1985            *
  16. ;* Revision history:                            *
  17. ;* - 18 Jun 92:    Renaissance (Borland Compilers, ...)            *
  18. ;*                                    *
  19. ;*                    ``In nomine omnipotentii dei''    *
  20. ;************************************************************************
  21.  
  22. ;
  23. ; Set up the standard autoload files. LOADCOMP.S also has autoload
  24. ; definitions for compiler version. Both LOADCOMP.S and LOADRUN.S
  25. ; should be included in COMPILER.APP.
  26.  
  27. (autoload-from-file (%system-file-name "WINDOWS.FSL")   ; windows
  28.   '(gc-screen full-screen split-screen text-mode
  29.     window-scroll-up window-scroll-down
  30.     make-window window-clear window-delete
  31.     window-get-position window-set-position!
  32.     window-get-size window-set-size! window-get-cursor
  33.     window-set-cursor! window-popup window-popup-delete
  34.     window-get-attribute window-set-attribute! window-reverse-text!)
  35.   user-global-environment)
  36.  
  37. (autoload-from-file (%system-file-name "MATH.FSL")       ; real arithmetic
  38.   '(acos asin atan cos exact? exp expt inexact?
  39.     log pi sin sqrt tan)
  40.   user-global-environment)
  41.  
  42. (autoload-from-file (%system-file-name "PRETTY.FSL")     ; pretty printer
  43.   '(pp %pretty-printer %pp-me)
  44.   user-global-environment)
  45.  
  46. (autoload-from-file (%system-file-name "MSDOS.FSL")      ; DOS facilities
  47.   '(dos-dir dos-get-env dos-put-env dos-search-file 
  48.     dos-call sw-int dos-delete delete-file dos-file-copy
  49.     dos-rename dos-file-size dos-chdir dos-get-dir
  50.     dos-change-drive)
  51.   user-global-environment)
  52.  
  53. (autoload-from-file (%system-file-name "SORT.FSL")       ; Sort package
  54.   '(sort! %sort-less?)
  55.   user-global-environment)
  56.  
  57. (autoload-from-file (%system-file-name "NUM2STR.FSL")    ; Number->String
  58.   '(number->string string->number integer->string sprintf sscanf)
  59.   user-global-environment)
  60.  
  61. (autoload-from-file (%system-file-name "VARARG.FSL")     ; Variable-args
  62.   '(* + - / <= >= < > = <> append append! bitwise-and bitwise-or bitwise-xor
  63.     char-ready? display list list* make-vector make-string max min
  64.     newline prin1 princ print read-line read-atom read-char unread-char
  65.     vector write write-char %graphics %esc %mouse)
  66.   user-global-environment)
  67.  
  68. (autoload-from-file (%system-file-name "NEWWIN.FSL")     ; Interactive windows
  69.   '(new-window)
  70.   user-global-environment)
  71.  
  72. (autoload-from-file (%system-file-name "ED.FSL")     ; editor class
  73.   '(make-editor make-enhanced-editor make-color-editor make-scheme-editor)
  74.   user-global-environment)
  75.  
  76. (autoload-from-file (%system-file-name "GRAPHICS.FSL")   ; BGI graphics
  77.   '(set-distances! set-coordinates! set-point?-! set-world! restore-world!
  78.     close-graph detect-graph graph-defaults get-graph-mode get-mode-range
  79.     init-graph install-user-driver install-user-font restore-crt-mode
  80.     set-graph-mode arc circle draw-poly ellipse get-arc-coords
  81.     get-aspect-ratio get-line-settings line line-rel line-to move-to
  82.     move-rel rectangle set-aspect-ratio set-line-style bar bar-3d
  83.     fill-ellipse fill-poly flood-fill get-fill-pattern get-fill-settings
  84.     pie-slice sector set-fill-pattern set-fill-style clear-device
  85.     set-active-page set-visual-page clear-viewport get-view-settings
  86.     set-viewport get-image image-size put-image get-pixel put-pixel
  87.     get-text-settings out-text out-text-xy set-text-justify set-text-style
  88.     set-user-char-size text-height text-width get-bk-color get-color
  89.     get-default-palette get-max-color get-palette get-palette-size
  90.     set-all-palette set-bk-color set-color set-palette set-rgb-palette
  91.     graph-error-msg graph-result get-driver-name get-max-mode get-max-xy
  92.     get-mode-name get-xy *pcs-bgi-error* set-write-mode bgi-environment)
  93.    user-global-environment)
  94.  
  95. (autoload-from-file (%system-file-name "MOUSE.FSL")    ; Mouse support
  96.   '(mouse)
  97.   user-global-environment)
  98. (autoload-from-file (%system-file-name "DESKTOP.FSL")    ; Desktop environment
  99.   '(desktop)
  100.    user-global-environment)
  101. (autoload-from-file (%system-file-name "FASTSAVE.FSL")    ; Make a .FSL
  102.   '(fast-save fast-save-file))
  103.  
  104. (autoload-from-file (%system-file-name "PEEK.FSL")      ; Peek & Poke
  105.   '(peek poke in-port out-port))
  106.